home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / tonyray1 / pc1.prg < prev    next >
Encoding:
Text File  |  1985-10-23  |  1.4 KB  |  91 lines
  1. SELE CURRENT
  2. SET INDE TO CURRNAME,CURRNMBR
  3. heading='current cases'
  4. CLEA
  5. @01,00 say 'position printer and hit any key'
  6. SET cons off
  7. WAIT
  8. SET cons on
  9. @01,00
  10. @05,00 say 'Printing report'
  11. @06,00 say 'please wait'
  12. mtitle='ATTORNEYS SHORT LIST'
  13. pos=40-(int(len(mtitle)/2))
  14. line=1
  15. SET devi to print
  16. @line,pos say mtitle
  17. GOTO top
  18. mnumber1=recno()
  19. SKIP 52
  20. mnumber2=recno()
  21. GOTO top
  22. line=4
  23. mstop=.t.
  24. pos=0
  25. DO WHIL line<=55
  26. @line,pos say file_nmbr+' '+substr(clientname,1,14)+' | '+;
  27. substr(reference,1,13)
  28. mnumber=recno()
  29. GOTO mnumber2
  30. IF .not. mstop
  31. GOTO mnumber
  32. SKIP
  33. line=line+1
  34. LOOP
  35. ELSE
  36. @line,pos+40 say file_nmbr+' '+substr(clientname,1,14)+' | '+;
  37. substr(reference,1,13)
  38. SKIP 1
  39. IF eof()
  40. mstop=.f.
  41. GOTO mnumber
  42. SKIP
  43. line=line+1
  44. LOOP
  45. ELSE
  46. mnumber2=recno()
  47. line=line+1
  48. GOTO mnumber
  49. SKIP
  50. ENDI
  51. ENDI
  52. ENDD
  53. @prow(),pcol() say chr(13)
  54. @prow(),pcol() say chr(12)
  55. SET devi to screen
  56. GOTO top
  57. PAGE=0
  58. line=99
  59. SET cons off
  60. DO WHIL .NOT. EOF()
  61. IF line>56
  62. IF page>=1
  63. EJEC   
  64. ENDI
  65. page=page+1
  66. SET PRIN ON 
  67. ?
  68. ?'PAGE '+STR(PAGE)
  69. ?'                     CURRENT CASES  FOR SECRETARY'
  70. ? DATE()
  71. ?
  72. ?
  73. ?
  74. SET PRIN OFF
  75. STOR 6 to line
  76. ENDI
  77. SET PRIN ON
  78. ? TRIM(CLIENTNAME)+' -'+TRIM(CSTREET)+'- '+TRIM(CCITY_ST)
  79. ? '   '+FILE_NMBR,CPHONE+' '+REFERENCE
  80. ?
  81. SET PRIN OFF
  82. LINE=LINE+3
  83. SKIP
  84. ENDD
  85. EJEC
  86. SET PRIN OFF
  87. SET CONS ON
  88. SET DEVICE to SCREEN
  89. STOR '012' to curr
  90. RETU
  91.